home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / pigscript170.exe / pigscript170ctcp.ini < prev    next >
Encoding:
INI File  |  1997-04-11  |  11.0 KB  |  159 lines
  1. [script]
  2. n0=ctcp bankick:*:!
  3. n1=#fullprotection off
  4. n2=ctcp 1:*:!
  5. n3=#fullprotection end
  6. n4=#friendsaccess on
  7. n5=ctcp 1:MYLEVEL: { .notice $nick You are not on my friends list. }
  8. n6=ctcp voice:MYLEVEL:.notice $nick You are on my friends list $nick $+ . You have INVITE, VOICE and Auto-Voice access. | .echo 3 MYLEVEL4 information sent to3 $nick
  9. n7=ctcp op:MYLEVEL:.notice $nick You are on my friends list $nick $+ . You have INVITE, VOICE, OP and Auto-OP access. | .echo 3 MYLEVEL4 information sent to3 $nick
  10. n8=ctcp 1:OP: { .notice $nick You are not on my friends list. }
  11. n9=ctcp op:OP: {
  12. n10=  if $2 == $null { .notice $nick No channel selected. Try /CTCP $me OP #<Channel> | .halt }
  13. n11=  elseif $nick isop $2 { .notice $nick You are already an op in $2. | .halt }
  14. n12=  elseif ( $me !ison $2 ) { .notice $nick Im not in $2. | .halt }
  15. n13=  elseif ( $me !isop $2 ) { .notice $nick Im not an op in $2. | .halt }
  16. n14=  elseif ( $nick ison $2 ) { .mode $2 +o $nick | .notice $nick You have been opped by %ver | .msg $2 $nick used their friends access to be opped by $me. | .echo 3 $nick 4has been opped using 3CTCP OP | .halt }
  17. n15=  elseif ( $nick !ison $2) { .notice $nick Join $2 before requesting ops. Try /CTCP $me INVITE $2 }
  18. n16=  halt
  19. n17=}
  20. n18=ctcp 1:VOICE: { .notice $nick You are not on my friends list. }
  21. n19=ctcp voice:VOICE: { 
  22. n20=  if $2 == $null { .notice $nick No channel selected. Try /CTCP $me VOICE #<Channel> | .halt }
  23. n21=  elseif $nick isvo $2 { .notice $nick You are already voiced in $2. | .halt }
  24. n22=  elseif ( $me !ison $2 ) { .notice $nick Im not in $2. | .halt }
  25. n23=  elseif ( $me !isop $2 ) { .notice $nick Im not an op in $2. | .halt }
  26. n24=  elseif ( $nick ison $2 ) { .mode $2 +v $nick | .notice $nick You have been voiced by %ver | .msg $2 $nick used their friends access to be voiced by $me. | .echo 3 $nick 4has been voiced using 3CTCP VOICE | .halt }
  27. n25=  elseif ( $nick !ison $2) { .notice $nick Join $2 before requesting voice. Try /CTCP $me INVITE $2 }
  28. n26=  halt
  29. n27=}
  30. n28=ctcp op:VOICE: {
  31. n29=  if $2 == $null { .notice $nick No channel selected. Try /CTCP $me VOICE #<Channel> | .halt }
  32. n30=  elseif $nick isvo $2 { .notice $nick You are already voiced in $2. | .halt }
  33. n31=  elseif ( $me !ison $2 ) { .notice $nick Im not in $2. | .halt }
  34. n32=  elseif ( $me !isop $2 ) { .notice $nick Im not an op in $2. | .halt }
  35. n33=  elseif ( $nick ison $2 ) { .mode $2 +v $nick | .notice $nick You have been voiced by %ver | .msg $2 $nick used their friends access to be voiced by $me. | .echo 3 $nick 4has been voiced using 3CTCP VOICE | .halt }
  36. n34=  elseif ( $nick !ison $2) { .notice $nick Join $2 before requesting voice. Try /CTCP $me INVITE $2 }
  37. n35=  halt
  38. n36=}
  39. n37=ctcp 1:INVITE: { .notice $nick You are not on my friends list. }
  40. n38=ctcp voice:INVITE: { 
  41. n39=  if $2 == $null { .notice $nick No channel selected. | .halt }
  42. n40=  else { .invite $nick $parm2 | .notice $nick You have been invited to $parm2 -( %ver )- | .echo 4 $nick has been invited to2 $parm2 | .msg $parm2 $nick used their friends access to be invited to $parm2 by $me. | .halt }
  43. n41=}
  44. n42=ctcp op:INVITE: {
  45. n43=  if $2 == $null { .notice $nick No channel selected. Try /CTCP $me INVITE #<Channel> | .halt }
  46. n44=  elseif ( $me !ison $2 ) { .notice $nick Im not in $2. | .halt }
  47. n45=  elseif ( $me !isop $2 ) { .notice $nick Im not an op in $2. | .halt }
  48. n46=  elseif ( $nick ison $2 ) { .notice $nick You are already in $2 $+ , you don't need to be invited. | .halt }
  49. n47=  else { .invite $nick $2 | .notice $nick You have been invited to $2 %ver | .echo 3 $nick 4joined $2 using3 CTCP INVITE | .msg $2 $nick used their friends access to be invited into $2 $+ . | .halt }
  50. n48=}
  51. n49=ctcp 1:HELP:.notice $nick Sorry you have no access here.
  52. n50=ctcp voice:HELP:.notice $nick %ver Friends Help For Voice Access | .notice $nick To find out your access, type /ctcp $me MYLEVEL | .notice $nick To be invited into a channel, type /ctcp $me INVITE #<channel> | .notice $nick To be voiced in a channel, type /ctcp $me VOICE #<channel> | .notice $nick To see the channels I am currently in type /ctcp $me CHANNELS | .notice $nick To find out $me $+ 's current time type /ctcp $me TIME | .echo 3 CTCP HELP4 information sent to3 $nick
  53. n51=ctcp op:HELP:.notice $nick %ver Friends Help For Op Access | .notice $nick To find out your access, type /ctcp $me MYLEVEL | .notice $nick To be invited into a channel, type /ctcp $me INVITE #<channel> | .notice $nick To be voiced in a channel, type /ctcp $me VOICE #<channel> | .notice $nick To be opped in a channel, type /ctcp $me OP #<channel> | .notice $nick To see the channels I am currently in type /ctcp $me CHANNELS | .notice $nick To find out $me $+ 's current time type /ctcp $me TIME | .echo 3 CTCP HELP4 information sent to3 $nick
  54. n52=ctcp bankick:HELP:.notice $nick You have been banned/kicked. You will get no help from me.
  55. n53=ctcp 1:CHANNELS:.notice $nick %ver Sorry you have no access here.
  56. n54=ctcp voice:CHANNELS:.notice $nick %ver $me is in $channel(0) channels, they include $channel(1) $channel(2) $channel(3) $channel(4) $channel(5) $channel(6) $channel(7) $channel(8) $channel(9) | .echo 3 CTCP CHANNEL4 information sent to3 $nick
  57. n55=ctcp op:CHANNELS:.notice $nick %ver $me is in $channel(0) channels, they include $channel(1) $channel(2) $channel(3)  $channel(4) $channel(5) $channel(6) $channel(7) $channel(8) $channel(9) | .echo 3 CTCP CHANNEL4 information sent to3 $nick
  58. n56=ctcp voice:OP:.notice $nick %ver Sorry your access level is too low to get opped.
  59. n57=#FriendsAccess End
  60. n58=#page on
  61. n59=ctcp 1:!PAGE:.wavplay mirc.wav | .wavplay mirc.wav | .echo 4 You are being2 !paged4 by2 $nick | .notice $nick $me has been paged.
  62. n60=ctcp voice:!PAGE:.wavplay mirc.wav | .notice $me You are being !paged by $nick $+ . | .notice $nick $me has been paged.
  63. n61=ctcp op:!PAGE:.wavplay mirc.wav | .notice $me You are being !paged by $nick $+ . | .notice $nick $me has been paged.
  64. n62=#Page End
  65. n63=ctcp 1:XDCC LIST: {
  66. n64=  if ( %Xdcclisting != On ) { halt }
  67. n65=else { .notice $nick Please use /msg $me XDCC LIST } }
  68. n66=ctcp 1:XDCC SEND #1: {
  69. n67=  if ( %Xdcclisting != On ) { halt }
  70. n68=else { .notice $nick Please try /msg $me XDCC SEND #1 } }
  71. n69=ctcp 1:XDCC SEND #2: {
  72. n70=  if ( %Xdcclisting != On ) { halt }
  73. n71=else { .notice $nick Please try /msg $me XDCC SEND #2 } }
  74. n72=ctcp 1:XDCC SEND #3: {
  75. n73=  if ( %Xdcclisting != On ) { halt }
  76. n74=else { .notice $nick Please try /msg $me XDCC SEND #3 } }
  77. n75=ctcp 1:XDCC SEND #4: {
  78. n76=  if ( %Xdcclisting != On ) { halt }
  79. n77=else { .notice $nick Please try /msg $me XDCC SEND #4 } }
  80. n78=ctcp 1:XDCC SEND #5: {
  81. n79=  if ( %Xdcclisting != On ) { halt }
  82. n80=else { .notice $nick Please try /msg $me XDCC SEND #5 } }
  83. n81=ctcp 1:XDCC SEND #6: {
  84. n82=  if ( %Xdcclisting != On ) { halt }
  85. n83=else { .notice $nick Please try /msg $me XDCC SEND #6 } }
  86. n84=#lightprotection on
  87. n85=ctcp 1:VERSION: {
  88. n86=  if ($nick == $me) halt
  89. n87=  if ([ %light [ $+ [ $nick ] ] ] == $null) { set %light $++ $nick 1 | .timer 1 30 unset %light $++ $nick }
  90. n88=  if ([ %light [ $+ [ $nick ] ] ] > 10) { .notice $nick %ver [CTCP Flood Protection Triggered] | .ignore -u120 $nick 2 | .echo 4 $nick has triggered your 2CTCP flood protection4. They will be ignored for2 1204 seconds. | halt }
  91. n89=  inc %light $+ $nick 1  
  92. n90=  .notice $nick I use %ver
  93. n91=}
  94. n92=ctcp 1:*: {
  95. n93=  if ($nick == $me) halt
  96. n94=  if ([ %light [ $+ [ $nick ] ] ] == $null) { set %light $++ $nick 1 | .timer 1 30 unset %light $++ $nick }
  97. n95=  if ([ %light [ $+ [ $nick ] ] ] > 10) { .notice $nick %ver [CTCP Flood Protection Triggered] | .ignore -u120 $nick 2 | .echo 4 $nick has triggered your 2CTCP flood protection4. They will be ignored for2 1204 seconds. | halt }
  98. n96=  inc %light $+ $nick 1  
  99. n97=}
  100. n98=#lightprotection end
  101. n99=#noprotection off
  102. n100=ctcp 1:VERSION:.notice $nick I use %ver
  103. n101=ctcp voice:VERSION:.notice $nick I use %ver
  104. n102=ctcp op:VERSION:.notice $nick I use %ver
  105. n103=#noprotection end
  106. n104=#massunban off
  107. n105=raw 367:*: {
  108. n106=  if (%numban == 6) { %numban = 1 | .inc %readban | .writeini $mircdir $+ bans.ini bans %readban $parm3 }
  109. n107=  elseif (%numban == $null) { .inc %numban | .writeini $mircdir $+ bans.ini bans %readban $parm3 }
  110. n108=  else { .inc %numban | %muchban = $readini $mircdir $+ bans.ini bans %readban | .writeini $mircdir $+ bans.ini bans %readban %muchban $parm3 }
  111. n109=  halt
  112. n110=}  
  113. n111=raw 368:*: { %i = 0 | :start | inc %i | if (%i > %readban) { goto end } | else { %procban = $readini $mircdir $+ bans.ini bans %i | .raw mode $parm2 -bbbbbb %procban | goto start } | :end | .disable #massunban | unset %numban %muchban %readban | .notice $parm2 $bb1 Ban list is wiped. $bb2 | .write -c $mircdir $+ bans.ini }
  114. n112=#massunban end
  115. n113=raw 352:*:{
  116. n114=  if ($parm2 == %statchan) {
  117. n115=    inc %StatsTotal 1
  118. n116=    if (@ isin $parm7) { inc %StatsChanOps 1 }
  119. n117=    if (@ !isin $parm7) { inc %StatsNonOps 1 }
  120. n118=    if (* isin $parm7) { inc %StatsIRCops 1 }
  121. n119=    if (+ isin $parm7) { inc %StatsVoiced 1 }
  122. n120=    if (G isin $parm7) { inc %StatsAway 1 }
  123. n121=    if (H isin $parm7) { inc %StatsHere 1 }
  124. n122=    halt
  125. n123=  }
  126. n124=}
  127. n125=raw 315:*:{
  128. n126=  if ($parm2 == %statchan) {
  129. n127=    if (%StatsChanOps == $null) { set %StatsChanOps 0 }
  130. n128=    if (%StatsNonOps == $null) { set %StatsNonOps 0 }
  131. n129=    if (%StatsIRCops == $null) { set %StatsIRCops 0 }
  132. n130=    if (%StatsVoiced == $null) { set %StatsVoiced 0 }
  133. n131=    if (%StatsAway == $null) { set %StatsAway 0 }
  134. n132=    if (%StatsHere == $null) { set %StatsHere 0 }
  135. n133=    %Stats10ChanOps = [ %StatsChanOps ] * [ 100 ]
  136. n134=    %Stats10NonOps = [ %StatsNonOps ] * [ 100 ]
  137. n135=    %Stats10IRCops = [ %StatsIRCOps ] * [ 100 ]
  138. n136=    %Stats10Voiced = [ %StatsVoiced ] * [ 100 ]
  139. n137=    %Stats10Away = [ %StatsAway ] * [ 100 ]
  140. n138=    %Stats10Here = [ %StatsHere ] * [ 100 ]
  141. n139=    %StatsPerChanOps = [ %Stats10ChanOps ] / [ %StatsTotal ]
  142. n140=    %StatsPerNonOps = [ %Stats10NonOps ] / [ %StatsTotal ]
  143. n141=    %StatsPerIRCops = [ %Stats10IRCOps ] / [ %StatsTotal ]
  144. n142=    %StatsPerVoiced = [ %Stats10Voiced ] / [ %StatsTotal ]
  145. n143=    %StatsPerAway = [ %Stats10Away ] / [ %StatsTotal ]
  146. n144=    %StatsPerHere = [ %Stats10Here ] / [ %StatsTotal ]
  147. n145=    echo 1 %statchan -=[]2 PigScript Statistics 1[]=-
  148. n146=    echo 1 %statchan There are currently2 %StatsTotal 1people in2 %statchan
  149. n147=    echo 2 %statchan %StatsChanOps 1( $+ %StatsPerChanOps $+ $chr(37) $+ ) 6people are opped
  150. n148=    echo 2 %statchan %StatsNonOps 1( $+ %StatsPerNonOps $+ $chr(37) $+ ) 6people are not opped
  151. n149=    echo 2 %statchan %StatsIRCops 1( $+ %StatsPerIRCops $+ $chr(37) $+ ) 6people are IRCops
  152. n150=    echo 2 %statchan %StatsVoiced 1( $+ %StatsPerVoiced $+ $chr(37) $+ ) 6people are voiced
  153. n151=    echo 2 %statchan %StatsAway 1( $+ %StatsPerAway $+ $chr(37) $+ ) 6people are setaway
  154. n152=    echo 2 %statchan %StatsHere 1( $+ %StatsPerHere $+ $chr(37) $+ ) 6people are just idling
  155. n153=    unset %Stat*
  156. n154=    halt
  157. n155=  }
  158. n156=}
  159.